home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / misc / InstallerFX.lha / InstallerFX / Examples / MagicSelector Example < prev    next >
Text File  |  1997-06-28  |  1KB  |  80 lines
  1. ; InstallerFX script
  2.  
  3. (onerror (CLEANUP))
  4.  
  5. ; Cleanup any temporary mess we created
  6. (procedure CLEANUP
  7.     ; Nothing to cleanup
  8.     (delete "t:Logopic")
  9. ) ; CLEANUP
  10.  
  11. (set @user-level 0)
  12.  
  13. ;(set Opt 3)
  14. ;(complete 0)
  15.  
  16. (copyfiles
  17.     (source "InstallerFX/MagicSelector.iff")
  18.     (dest "t:")
  19.     (newname "Logopic")
  20. )
  21.  
  22. (run "run InstallerFX/InstallerFX t:logopic")
  23.  
  24. (set @user-level 2)
  25.  
  26. ;Get directory to install test to:
  27. (set destdir 
  28.     (askdir 
  29.         (prompt "In which drawer should testfiles be installed?") 
  30.         (help @askdir-help)
  31.         (default ("t:"))
  32.     )
  33. )
  34.  
  35. (complete 10)
  36.  
  37. (set installfiles
  38.     (askoptions
  39.         (prompt "Which of the following optional programs/helpfile should be installed ?")
  40.         (help @askoptions-help)
  41.         (choices "InstallerFX")
  42.         (default Opt)
  43.     )
  44. )
  45.  
  46. (complete 50)
  47.  
  48. ;Copy program files to destination.
  49.  
  50. (if (BITAND installfiles 1)
  51. (copyfiles
  52.     (source "InstallerFX")
  53.     (dest destdir)
  54.     (all)
  55. )
  56. )
  57.  
  58. (set installfiles
  59.     (askoptions
  60.         (prompt "Which of the following optional programs/helpfile should be installed ?")
  61.         (help @askoptions-help)
  62.         (choices "InstallerFX")
  63.         (default Opt)
  64.     )
  65. )
  66.  
  67.  
  68. (if (BITAND installfiles 1)
  69. (copyfiles
  70.     (source "InstallerFX")
  71.     (dest destdir)
  72.     (all)
  73. )    
  74. )
  75.  
  76. (complete 100)
  77.  
  78. (CLEANUP)
  79. (exit)
  80.